home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1998 to 1999 / DISNEY99.ISO / Media / Menu.dxr / Internal_1_Movie Script.ls < prev    next >
Encoding:
Text File  |  1998-11-16  |  2.8 KB  |  128 lines
  1. global gVisitedList, gFoundOne, gTileName, gLastVisFrame, gLastVisMovie, gSavePath
  2.  
  3. on startMovie
  4.   set gSavePath to "C:\Disney\Demo99_E\Licence\"
  5.   readVisList()
  6.   cursor(-1)
  7. end
  8.  
  9. on stopMovie
  10.   writeVisList()
  11. end
  12.  
  13. on readVisList
  14.   if objectp(myFile) then
  15.     set myFile to 0
  16.   end if
  17.   set myFile to new(xtra("fileIO"))
  18.   if the machineType = 256 then
  19.     setFilterMask(myFile, "All files, *.*, Text files, *.txt")
  20.   else
  21.     setFilterMask(myFile, "TEXT")
  22.   end if
  23.   set fileName to "Visited.txt"
  24.   if not voidp(fileName) then
  25.     openFile(myFile, gSavePath & fileName, 1)
  26.     set theFile to readFile(myFile)
  27.     if not voidp(theFile) then
  28.       put theFile into field "MyField"
  29.       initVisList()
  30.     else
  31.       WriteEmptyList()
  32.     end if
  33.   end if
  34.   closeFile(myFile)
  35.   set myFile to 0
  36. end
  37.  
  38. on writeVisList
  39.   if objectp(myFile) then
  40.     set myFile to 0
  41.   end if
  42.   set myFile to new(xtra("fileIO"))
  43.   if the machineType = 256 then
  44.     setFilterMask(myFile, "All files, *.*, Text files, *.txt")
  45.   else
  46.     setFilterMask(myFile, "TEXT")
  47.   end if
  48.   set fileName to "Visited.txt"
  49.   if not voidp(fileName) then
  50.     openFile(myFile, gSavePath & fileName, 0)
  51.     set theFile to readFile(myFile)
  52.     setPosition(myFile, 0)
  53.     writeString(myFile, field "myField")
  54.   else
  55.     nothing()
  56.   end if
  57.   closeFile(myFile)
  58.   set myFile to 0
  59. end
  60.  
  61. on WriteEmptyList
  62.   if objectp(myFile) then
  63.     set myFile to 0
  64.   end if
  65.   set myFile to new(xtra("fileIO"))
  66.   if the machineType = 256 then
  67.     setFilterMask(myFile, "All files, *.*, Text files, *.txt")
  68.   else
  69.     setFilterMask(myFile, "TEXT")
  70.   end if
  71.   set fileName to "Visited.txt"
  72.   if not voidp(fileName) then
  73.     createFile(myFile, gSavePath & fileName)
  74.     openFile(myFile, gSavePath & fileName, 0)
  75.     set theFile to readFile(myFile)
  76.     setPosition(myFile, 0)
  77.     writeString(myFile, field "defMyField")
  78.   else
  79.     nothing()
  80.   end if
  81.   closeFile(myFile)
  82.   set myFile to 0
  83.   readVisList()
  84. end
  85.  
  86. on initVisList
  87.   set gVisitedList to [:]
  88.   repeat with n = 1 to the number of lines in field "MyField"
  89.     setaProp(gVisitedList, item 1 of line n of field "MyField", item 2 of line n of field "MyField")
  90.   end repeat
  91. end
  92.  
  93. on HighlightThem
  94.   repeat with n = 1 to the number of lines in field "MyField"
  95.     set x to item 2 of line n of field "myField"
  96.     if x = 1 then
  97.       set the member of sprite (n + 2) to n + 48
  98.       next repeat
  99.     end if
  100.     nothing()
  101.   end repeat
  102. end
  103.  
  104. on UpdateList
  105.   set y to findPos(gVisitedList, gTileName)
  106.   put "1" into item 2 of line y of field "MyField"
  107.   initVisList()
  108. end
  109.  
  110. on whichSSmovie
  111.   set valid to 1
  112.   repeat with x = 1 to count(gVisitedList)
  113.     if getaProp(gVisitedList, "No0" & string(x)) = "0" then
  114.       set valid to 0
  115.     end if
  116.   end repeat
  117.   if valid = 0 then
  118.     go(1, "SSaverN")
  119.   else
  120.     go(1, "SSaverY")
  121.   end if
  122. end
  123.  
  124. on putFrameMovie
  125.   set gLastVisFrame to the frame
  126.   set gLastVisMovie to the movie
  127. end
  128.